home *** CD-ROM | disk | FTP | other *** search
- on showAllProps object
- repeat with X = 1 to count(object)
- thisProp = getPropAt(object, X)
- case thisProp of
- #pMouthList:
- put thisProp && "<MouthList trimmed>"
- #pMouthTiming:
- put thisProp && "<MouthList trimmed>"
- otherwise:
- put thisProp & ":" && getaProp(object, X)
- end case
- end repeat
- end
-